home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
WRITEAT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-07-17
|
548b
|
19 lines
{<<<< WriteAt >>>>}
{ From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann }
{ Scott, Foresman & Co. 1988 ISBN 0-673-38355-5 }
{ Described in section 18.3 -- Last mod 7/17/88 }
PROCEDURE WriteAt(X,Y : Integer;
Highlite : Boolean;
UseCR : Boolean;
TheText : String);
BEGIN
IF Y < 0 THEN Y := 12;
IF X < 0 THEN X := (80-Length(TheText)) DIV 2;
GotoXY(X,Y);
IF Highlite THEN LowVideo;
IF UseCR THEN Writeln(TheText) ELSE Write(TheText);
NormVideo
END;